% TEST_ID: LANG-EXPAND-0032
% CATEGORY: language/array-ops/ops
% 测试 / 运算符

function test_rdivide
    A = [1, 2; 3, 4];
    B = [5, 6; 7, 8];
    C = B / A;
    assert_isclose(C, [-1 2; -2 3]);

    A = [1, 2; 3, 4];
    B = [5  6];
    C = B / A;
    assert_isclose(C, [-1 2]);
end

function assert_isclose(x, y)
    assert(all(abs(x - y) < 1e-14))
end
